home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 1 / SpanishScene1.iso / spanish pack n°1 by llfb / revistas / trashcan / trashcan#2 / trashcan02.dms / trashcan02.adf / Trashinstalata < prev   
Text File  |  1992-09-02  |  3KB  |  90 lines
  1. ;***************************************
  2. ;* Script de instalación de TRASHCAN#2 *
  3. ;*      (K) 1996 ¡Tony Stuvo Aky!      *
  4. ;***************************************
  5. ;* Un saludo a todos mis amiguetes del *
  6. ;*                Amiga                *
  7. ;***************************************
  8.  
  9. (complete 0)
  10.  
  11. (set destino "SYS:")
  12.  
  13. (message
  14.     " \n"
  15.     " TRaSHCaN# 2                                 \n"
  16.     " ·.·.·.·.·.·                                 \n"
  17.     "                No hay mayor error que no    \n"
  18.     "               hacer nada  porque tan solo   \n"
  19.     "                 se puede hacer un poco.     \n"
  20.     "                                             \n"
  21. )
  22.  
  23. (set destino
  24.    (askdir
  25.         (prompt "Selecciona el directorio donde quieras\n"
  26.                 "que se instale la revista.\n")
  27.         (default destino)
  28.         (help   "\n\n"
  29.                 " ¡Hola Karabola! Pues lo que quiero que hagas es\n"
  30.                 " simplemente  que  elijas donde  demonios debo meter\n"
  31.                 " todo el pelote de ficheros de la revista, porque si\n"
  32.                  " no te los voy a incrustar donde me dé la gana.\n")
  33.    )
  34.                             
  35. )
  36.  
  37. (set destino (tackon destino "TRASHCAN"))
  38.  
  39. (makedir destino (infos))
  40.  
  41. (working "Formateando DH0: a bajo nivel.\n"
  42.          "       Espera un ratito.      \n")
  43.  
  44. (askdisk (dest "TRASHCAN#2")
  45.          (prompt "\n\n\n"
  46.                  "  ¡Eeeeh! ¿Dónde diablos has puesto el disco?\n"
  47.                  "  ¡Ya lo estás volviendo a meter en la unidad!\n")
  48.          (help "\n\n\n\n"
  49.                "    ¡Pareces un p0!  ¿Quieres dejar de preguntar \n"
  50.                "    sandeces y meter el disco de las narices ya? \n"
  51.                "          ¡KE NO TENGO TODO EL DÍA, COÑO!        \n")
  52.          (assigns)
  53. )
  54.  
  55. (copyfiles 
  56.          (source "TRASHCAN#2:Trashcan#2")
  57.          (dest destino))
  58. (copyfiles 
  59.          (source "trashcan#2:Trashcan_A")
  60.          (dest destino))
  61.  
  62. (copyfiles 
  63.          (source "trashcan#2:Trashcan_B")
  64.          (dest destino))
  65.  
  66. (copyfiles
  67.          (source "trashcan#2:Trashcan_2")
  68.          (dest destino))
  69. (copyfiles
  70.          (source "trashcan#2:Trashcan_2.info")
  71.          (dest destino))
  72.  
  73. (copyfiles (source "trashcan#2:Trashcan_C")
  74.            (dest destino))
  75.  
  76. (copyfiles 
  77.          (source "trashcan#2:Trashcan_D")
  78.          (dest destino))
  79.  
  80. (complete 100)
  81.  
  82. (message         "\n\n\n"
  83.                  "            ¡EA! ¡YA ESTÁ!            \n"
  84.                  "                                      \n"
  85.                  " El volumen SYS: ha sido debidamente  \n"
  86.                  "       formateado a bajo nivel.       \n"
  87.                  "                                      \n"
  88.                  " Güindous 95 fué instalado con éxito. \n"
  89. )
  90.